perm filename RPG.FRM[P,JRA] blob sn#420471 filedate 1979-02-24 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	∂17-Jan-79  1546	RPG  	UTIL.>   
C00003 00003	∂09-Feb-79  1457	RPG  	Dislocated open file helper  
C00005 00004	∂20-Feb-79  1547	RPG  	New STEP feature   
C00008 ENDMK
C⊗;
∂17-Jan-79  1546	RPG  	UTIL.>   
To:   "@USERS.DIS[AID,RPG]" at SU-AI  
	To speed up compilation (and interpretation), you might try changing your
(require util 1 dsk (aid rpg)) to
(declare (fasload '((dsk (aid rpg)) util fas)))
			-rpg-

∂09-Feb-79  1457	RPG  	Dislocated open file helper  
To:   "@USERS.DIS[AID,RPG]" at SU-AI  
	Sometimes in NEWIO you can get stranded by opening some
file and then losing a pointer to it. This sometimes occurs in
errors; the function CLOSER can help in this case.
	When called with 0 arguments, it searches the internal list
of open files and asks about each non-TTY file whether you want it
closed:

(EOPEN '(EDIT /113))	;loser is asking for trouble!!! No pointer to this one!!!
			;unless s/he likes typing this:
#FILE-IN-|DSK:EDIT.113[AID,RPG]|-7774 
(EOPEN '(CLOSE 1))	;there's no end to his/her stupidity

#FILE-IN-|DSK:CLOSE.1[AID,RPG]|-7766 
(CLOSER)		;hmmm, maybe not as stupid as all that!

#FILE-IN-|DSK:EDIT.113[AID,RPG]|-7774 - Close this one? Y
#FILE-IN-|DSK:EDIT.113[AID,RPG]|-7774 closed!
#FILE-IN-|DSK:CLOSE.1[AID,RPG]|-7766 - Close this one? N
DONE 			;managed to win anyway?!?!?

			-rpg-

∂09-Feb-79  1502	RPG  	... 
To:   "@USERS.DIS[AID,RPG]" at SU-AI  
I forgot to add: available through (HELP).
			-rpg-

∂20-Feb-79  1547	RPG  	New STEP feature   
To:   "@USERS.DIS[AID,RPG]" at SU-AI  
αβM, αM, and βM can be used to step around macro calls gracefully. If you type
either of these at a macro call, the STEPper will assume that it is a macro,
expand it, and present you with the expanded form without any stepping involved
in the expansion. If it isn't a macro, it restates the form.
			-rpg-